home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / pitdemo.dir / 00066.ls < prev    next >
Encoding:
Text File  |  1995-12-13  |  644 b   |  34 lines
  1. global gNext
  2.  
  3. on mouseDown
  4.   puppetSound("ReturnB")
  5.   puppetSprite(13, 1)
  6.   set the castNum of sprite 13 to 64
  7.   updateStage()
  8.   startTimer()
  9.   repeat while the timer < 15
  10.     nothing()
  11.   end repeat
  12.   set the castNum of sprite 13 to 65
  13.   updateStage()
  14.   startTimer()
  15.   repeat while the timer < 15
  16.     nothing()
  17.   end repeat
  18.   set the castNum of sprite 13 to 64
  19.   updateStage()
  20.   startTimer()
  21.   repeat while the timer < 15
  22.     nothing()
  23.   end repeat
  24.   set the castNum of sprite 13 to 65
  25.   updateStage()
  26.   puppetSprite(13, 0)
  27.   startTimer()
  28.   repeat while the timer < 30
  29.     nothing()
  30.   end repeat
  31.   set gNext to "more fade"
  32.   go("s return")
  33. end
  34.